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6- \g LOTORTL. SREICIBEXTIV.MAR: 1 ° 
TITLE Liesextev extracts and zero extends a field 
IDENT /1-002/ i; File: LIBEXTZV.MAR 
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COPYRIGHT ‘i 1978, 1980, 1982, 1984 B 
IGITAL Soule Ate MENT CORPORATION, MAYNARD. MASSACHUSETTS. 


FTWARE IS pyeniquce UNDER A LICENSE AND MAY BE USED AND COPIED 

ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
ON OF | ABOVE gdh NOTICE. THIS SOFTWARE OR ANY OTHER 
THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
EnaON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eORPORAT Ibe NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONS 
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"FACILITY: General Utility Library 
ABSTRACT: 

Extract a longword zero extended field 
ENVIRONMENT: AST Reentrant 
AUTHOR: Donald G. Petersen, CREATION DATE: 29-Dec-77 
MODIFIED BY: 
bona|d 6. Petersen, 29-Dec-77 : VERSION 00 


01 - ori 
1-001 - Update, sopyes ht notice and version number. JBS 16-NOV-78 
1-002 - Add "'_"' to PSECT directive. JBS 21-DEC-78 
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HSad re oxtnte o tote” "TERESI ARETE INCITED ss" 
-SBTTL DECLARATIONS 
INCLUDE FILES: 


gg SCR 
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4 

4 ; MACROS: 

8 ; EQUATED SyMBOLS: 
60 * 

61 ; 

6¢ ; OWN STORAGE: 

63 ; 

64 


66 : PSECT DECLARATIONS: 
; -PSECT _LIBSCODE PIC, SHR, LONG, EXE, NOWRT 
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IBSEXTZV extracts and zero extends a field -SEP-1984 00:08:1 AX/VMS Macro V04-00 Page | 
eit LIBSE 1? - Extract a zero extended fiel aie 7 9: 6:4 LIBRTL.SRCIJLIBEXTZV.MAR; 1 . 3) 
ad -SBTTL LIBSEXTZV = Extract a zero extended field | 

FUNCTIONAL DESCRIPTION: | 


Return a longword zero extended field which has been extracted from the spec | 
variable bit field. If the ote specified is zero, a zero is returned. 
Specifying a size greater than 51 results in a reserved operand fault. 


CALLING SEQUENCE: 
field.wlu.v = LIBSEXTZV (pos.rl.r, size.rbu.r, base.rv.r) 
POSITION = 4 ; Adr. of longword position 
SIZE = 8 


; Adr. of byte containing size 
BASE = 12 ; Adr. of base of field 
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sass 
000000C 
INPUT PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
FUNCTION VALUE: 
field 
SIDE EFFECTS: 
SSSROPRAND - reserved operand fault for size greater than 31 
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0000 : ENTRY LIBSEXTZV, “M<> ; ENTRY POINT (OR MASK) 
5Q 0c BC O08 BC O04 86C_ EF EXTZV @POSITION(AP), @SIZE(AP), - 
06 @BASEC(AP), RO 3 extract and zero extend 
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mot table ‘ pai fi 99:88:18 LIBRTL.SRCIJLIBEXTZV.MAR; 1 - dh 
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! Psect synopsis ! 


BAS = 
LIBSEXTZV RG 01 
POSITION = 
SIZE - 8 
bmw mn erema re mrecra > 
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PSECT name Allocation PSECT No. Attributes 


« WS 44404 ( 9. 89 ( 9-} NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
_LIBSCODE 000 .. 3ter Ol &. Bee PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 
$e ew eso ese nee wean ocanaeaes -+ 
; Performance indicators ; 
Phase Page faults CPU Time Elapsed Time 
Initialization rH 00:00: 8-9 0:00: 9.2 
Command processing 1 ¢ Bo: :00. 0:00: 3 
Syabot tabl t 7 00; : 85 0; 0; Q: 1 
able sor :00:00. :00:00. 
EY bewes ae Sf 8:00:08: 17 8:00:0)°26 
utpu :00:00. :00:00. 
Psect synopsis suteut 2 0:00: 503 00:00;00.15 
Cross-reference output 0 Boe BOF Be 00:00:00.00 
Assembler run totals 240 0:00:00. 00:00:06.04 


The working set Limit was 900 pages. 

1166 bytes (3 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 4 non-local and 0 local symbols. 
2 source Lines were read in Pass 1, producing 10 object records in Pass 2. 

0 pages of virtual memory were used to define 0 macros. 


pew own awe mee wre encore ewone + 


' Macro Library statistics : 
dams res eee ere coe eee aoe e 


Macro Library name Macros defined 
“S25SSDUAZB:(SYSLIBISTARLET.MLB:2 0 SS af Gi 
O GETS were required to define 0 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:LIBEXTZV/OBJ=OBJ$:LIBEXTZV MSRC$:LIBEXTZV/UPDATE=(ENHS$:L IBEXTZV) 
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